home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
IRIX 6.2 Development Libraries
/
SGI IRIX 6.2 Development Libraries.iso
/
dist
/
complib.idb
/
usr
/
share
/
catman
/
p_man
/
cat3
/
complib
/
zgecon.z
/
zgecon
Wrap
Text File
|
1996-03-14
|
3KB
|
133 lines
ZZZZGGGGEEEECCCCOOOONNNN((((3333FFFF)))) ZZZZGGGGEEEECCCCOOOONNNN((((3333FFFF))))
NNNNAAAAMMMMEEEE
ZGECON - estimate the reciprocal of the condition number of a general
complex matrix A, in either the 1-norm or the infinity-norm, using the LU
factorization computed by ZGETRF
SSSSYYYYNNNNOOOOPPPPSSSSIIIISSSS
SUBROUTINE ZGECON( NORM, N, A, LDA, ANORM, RCOND, WORK, RWORK, INFO )
CHARACTER NORM
INTEGER INFO, LDA, N
DOUBLE PRECISION ANORM, RCOND
DOUBLE PRECISION RWORK( * )
COMPLEX*16 A( LDA, * ), WORK( * )
PPPPUUUURRRRPPPPOOOOSSSSEEEE
ZGECON estimates the reciprocal of the condition number of a general
complex matrix A, in either the 1-norm or the infinity-norm, using the LU
factorization computed by ZGETRF.
An estimate is obtained for norm(inv(A)), and the reciprocal of the
condition number is computed as
RCOND = 1 / ( norm(A) * norm(inv(A)) ).
AAAARRRRGGGGUUUUMMMMEEEENNNNTTTTSSSS
NORM (input) CHARACTER*1
Specifies whether the 1-norm condition number or the infinity-
norm condition number is required:
= '1' or 'O': 1-norm;
= 'I': Infinity-norm.
N (input) INTEGER
The order of the matrix A. N >= 0.
A (input) COMPLEX*16 array, dimension (LDA,N)
The factors L and U from the factorization A = P*L*U as computed
by ZGETRF.
LDA (input) INTEGER
The leading dimension of the array A. LDA >= max(1,N).
ANORM (input) DOUBLE PRECISION
If NORM = '1' or 'O', the 1-norm of the original matrix A. If
NORM = 'I', the infinity-norm of the original matrix A.
RCOND (output) DOUBLE PRECISION
The reciprocal of the condition number of the matrix A, computed
as RCOND = 1/(norm(A) * norm(inv(A))).
PPPPaaaaggggeeee 1111
ZZZZGGGGEEEECCCCOOOONNNN((((3333FFFF)))) ZZZZGGGGEEEECCCCOOOONNNN((((3333FFFF))))
WORK (workspace) COMPLEX*16 array, dimension (2*N)
RWORK (workspace) DOUBLE PRECISION array, dimension (2*N)
INFO (output) INTEGER
= 0: successful exit
< 0: if INFO = -i, the i-th argument had an illegal value
PPPPaaaaggggeeee 2222